VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsTeclados"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Public Enum TipoTec
    Tec_AlfaNumerico = 0
    Tec_Numerico = 1
    Tec_Lista = 2
End Enum

Private m_TipoTeclado           As TipoTec

Private m_Indice                As Integer

Private m_Tipo                  As VbVarType


Public Property Let Indice(ByVal mValue As Integer)
    m_Indice = mValue
End Property

Public Property Let Tipo(ByVal mValue As VbVarType)
    m_Tipo = mValue
End Property

Public Property Let TipoTeclado(ByVal value As TipoTec)
    m_TipoTeclado = value
End Property

Public Property Get Indice() As Integer
     Indice = m_Indice
End Property

Public Property Get Tipo() As VbVarType
     Tipo = m_Tipo
End Property

Public Property Get TipoTeclado() As TipoTec
     TipoTeclado = m_TipoTeclado
End Property

Public Sub Clear()
    m_TipoTeclado = Tec_AlfaNumerico
    m_Indice = 0
    m_Tipo = vbString
End Sub


